home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Essentials / Developer Essentials May91 / MPW Interfaces & Libraries 3.2 / AIncludes / ToolEqu.a < prev    next >
Encoding:
Text File  |  1991-04-17  |  38.9 KB  |  1,042 lines  |  [TEXT/MPS ]
  1. ; Version: 3.28
  2. ; Created: Friday, October 20, 1989 at 10:02:20 PM
  3. ;
  4. ; File: ToolEqu.a
  5. ;
  6. ; Assembler Interface to the Macintosh Libraries
  7. ; Copyright Apple Computer, Inc. 1984-1990
  8. ; All Rights Reserved
  9. ;
  10. ;___________________________________________________________________________
  11.  
  12.     IF &TYPE('__IncludingToolEqu__') = 'UNDEFINED' THEN
  13. __IncludingToolEqu__    SET    1
  14.  
  15.                   IF          (&TYPE('wholeTools') = 'UNDEFINED') THEN
  16. wholeTools        EQU         1
  17.                   ENDIF
  18.  
  19.  
  20. ;+ Resource Manager
  21.  
  22. ; Resource attributes
  23.  
  24. resSysRef         EQU         7                         ; reference to system/local reference
  25. resSysHeap        EQU         6                         ; In system/in application heap
  26. resPurgeable      EQU         5                         ; Purgeable/not purgeable
  27. resLocked         EQU         4                         ; Locked/not locked
  28. resProtected      EQU         3                         ; Protected/not protected
  29. resPreload        EQU         2                         ; Read in at OpenResource?
  30. resChanged        EQU         1                         ; Existing resource changed since last update
  31. rcbMask           EQU         $FD                       ; Must preserve ResChanged over _ResAttrs
  32.  
  33. ; Map attributes
  34.  
  35. mapReadOnly       EQU         7                         ; is this file read-only?
  36. mapCompact        EQU         6                         ; Is a compact necessary?
  37. mapChanged        EQU         5                         ; Is it necessary to write map?
  38.  
  39. ; Resource Manager Globals
  40.  
  41. TopMapHndl        EQU         $A50                      ; topmost map in list [handle]
  42. SysMapHndl        EQU         $A54                      ; system map [handle]
  43. SysMap            EQU         $A58                      ; reference number of system map [word]
  44. CurMap            EQU         $A5A                      ; reference number of current map [word]
  45. ResReadOnly       EQU         $A5C                      ; Read only flag [word]
  46. ResLoad           EQU         $A5E                      ; Auto-load feature [word]
  47. ResErr            EQU         $A60                      ; Resource error code [word]
  48. ResErrProc        EQU         $AF2                      ; Resource error procedure [pointer]
  49. SysResName        EQU         $AD8                      ; Name of system resource file [STRING[19]]
  50.  
  51. ;new Resource Manager stuff
  52.  
  53. RomMapInsert      EQU         $B9E                      ; (byte) determines if we should link in map
  54. TmpResLoad        EQU         $B9F                      ; second byte is temporary ResLoad value.
  55.  
  56. ; the following word values are to be placed into the
  57. ; word located at RomMapInsert
  58.  
  59. MapTrue           EQU         $FFFF                     ; link in ROM map with resload true 
  60. MapFalse          EQU         $FF00                     ; link in ROM map with resload false
  61.  
  62. ;+ Font Manager
  63.  
  64.  
  65. ; Standard font ID's
  66.  
  67. sysFont           EQU         0                         ; system font ID
  68. applFont          EQU         1                         ; application font ID
  69. newYork           EQU         2                         ; standard release fonts
  70. geneva            EQU         3
  71. monaco            EQU         4
  72. venice            EQU         5
  73. london            EQU         6
  74. athens            EQU         7
  75. sanFran           EQU         8
  76. toronto           EQU         9
  77. cairo             EQU         11
  78. losAngeles        EQU         12
  79. times             EQU         20
  80. helvetica         EQU         21
  81. courier           EQU         22
  82. symbol            EQU         23
  83. mobile            EQU         24
  84.  
  85. ; Font Manager Globals
  86.  
  87. ApFontID          EQU         $984                      ; resource ID of application font [word]
  88. FMDefaultSize     EQU         $987                      ; default size [byte]
  89. CurFMInput        EQU         $988                      ; quickdraw FMInput Record [pointer]
  90. FMgrOutRec        EQU         $998                      ; quickdraw FontOutput Record [pointer]
  91. FScaleDisable     EQU         $A63                      ; disable font scaling? [byte]
  92.  
  93. ;new FONT manager stuff
  94.  
  95. WidthListHand     EQU         $8E4                      ; list of extra width tables, or nil.
  96. WidthPtr          EQU         $B10                      ; (long) Font Mgr global
  97. WidthTabHandle    EQU         $B2A                      ; Font width table handle for measure
  98. LastSPExtra       EQU         $B4C                      ; (long) most recent value of space extra
  99. SysFontFam        EQU         $BA6                      ; (word) System font family ID or zero
  100. SysFontSize       EQU         $BA8                      ; (word) System font size (or zero for 12 pt)
  101. FDevDisable       EQU         $BB3                      ; (byte) $FF to disable device-defined style extra
  102. LastFOND          EQU         $BC2                      ; (long) handle of last font def record
  103. FONDID            EQU         $BC6                      ; (word) ID of last font def record
  104. FractEnable       EQU         $BF4                      ; (byte) flag for fractional font widths
  105. UsedFWidths       EQU         $BF5                      ; (byte) flag saying if we used fract widths
  106. FScaleHFact       EQU         $BF6                      ; (long) horz. font scale factor
  107. FScaleVFact       EQU         $BFA                      ; (long) vertical font scale factor 
  108.  
  109. ;+ Window Manager
  110.  
  111. ; system windows have negative kinds
  112. dialogKind        EQU         2                         ; dialog windows
  113. userKind          EQU         8                         ; this and above numbers are for user
  114.  
  115. ; Values returned by window definition function's hit routine
  116.  
  117. wNoHit            EQU         0                         ; not in window at all
  118. wInContent        EQU         1                         ; in content area
  119. wInDrag           EQU         2                         ; in drag area
  120. wInGrow           EQU         3                         ; in grow area
  121. wInGoAway         EQU         4                         ; in go away area
  122. wInZoomIn         EQU         5                         ; in zoom in
  123. wInZoomOut        EQU         6                         ; in zoom out
  124.  
  125. ; FindWindow Return Codes
  126.  
  127. inDesk            EQU         0                         ; not in any window
  128. inMenuBar         EQU         1                         ; in the menu bar
  129. inSysWindow       EQU         2                         ; in a system window
  130. inContent         EQU         3                         ; in content area of user window
  131. inDrag            EQU         4                         ; in drag area of user window
  132. inGrow            EQU         5                         ; in grow area of user window
  133. inGoAway          EQU         6                         ; in go away area of user window
  134. inZoomIn          EQU         7                         ; in zoom in part code
  135. inZoomOut         EQU         8                         ; in zoom out part code
  136.  
  137. ; Resource ID's for windows
  138.  
  139. deskPatID         EQU         16                        ; desk pattern PAT ID
  140. documentProc      EQU         0                         ; standard document WDEF ID
  141. dBoxProc          EQU         1                         ; dialog box (document without titleBar) WDEF ID
  142. plainDBox         EQU         2                         ; no border WDEF ID
  143. altDBoxProc       EQU         3                         ; no shadow or title WDEF ID
  144. noGrowDocProc     EQU         4                         ; no grow area WDEF ID
  145. movableDBoxProc    EQU            5                        ; movable dialog box WDEF ID
  146. zoomDocProc       EQU         8                         ; with zoom box WDEF ID
  147. zoomNoGrow        EQU         12                        ; zoom with no grow box WDEF ID
  148. rDocProc          EQU         16                        ; document with rounded corners WDEF ID
  149.  
  150. ; Window Data Structure Definition
  151.  
  152. windowPort        EQU         0                         ; grafPort [108 bytes]
  153. windowKind        EQU         $6C                       ; type of window [word]
  154. wVisible          EQU         $6E                       ; visible flag [byte]
  155. wHilited          EQU         $6F                       ; select (hilite) flag [byte]
  156. wGoAway           EQU         $70                       ; has go away button [byte]
  157. wZoom             EQU         $71                       ; has zoom box [byte]
  158. structRgn         EQU         $72                       ; structure region of window [Handle]
  159. contRgn           EQU         $76                       ; content region of window [Handle]
  160. updateRgn         EQU         $7A                       ; update region of window [Handle]
  161. windowDef         EQU         $7E                       ; window definition procedure [Handle]
  162. wDataHandle       EQU         $82                       ; window proc-defined data [Handle]
  163. wTitleHandle      EQU         $86                       ; title string [Handle]
  164. wTitleWidth       EQU         $8A                       ; width in pixels of title string [word]
  165. wControlList      EQU         $8C                       ; control list of this window [handle]
  166. nextWindow        EQU         $90                       ; next window in z-ordered list [pointer]
  167. windowPic         EQU         $94                       ; picture handle for updates [handle]
  168. wRefCon           EQU         $98                       ; application use [long]
  169. windowSize        EQU         $9C                       ; size of window data structure
  170. WStateData        RECORD      0
  171. userState         DS.L        2                         ;Rect
  172. stdState          DS.L        2                         ;Rect
  173.                   ENDR
  174.  
  175.  
  176.  
  177. ; Window Manager Globals
  178.  
  179. WindowList        EQU         $9D6                      ; Z-ordered linked list of windows [pointer]
  180. PaintWhite        EQU         $9DC                      ; erase newly drawn windows? [word]
  181. WMgrPort          EQU         $9DE                      ; window manager's grafport [pointer]
  182. GrayRgn           EQU         $9EE                      ; rounded gray desk region [handle]
  183. CurActivate       EQU         $A64                      ; window slated for activate event [pointer]
  184. CurDeactive       EQU         $A68                      ; window slated for deactivate event [pointer]
  185. DragHook          EQU         $9F6                      ; user hook during dragging [pointer]
  186. DeskPattern       EQU         $A3C                      ; desk pattern [8 bytes]
  187. DeskHook          EQU         $A6C                      ; hook for painting the desk [pointer]
  188. GhostWindow       EQU         $A84                      ; window hidden from FrontWindow [pointer]
  189.  
  190.  
  191.  
  192. ;+ Menu Manager
  193.  
  194. ; "ASCII" marks for menu characters
  195.  
  196. noMark            EQU         0
  197. commandMark       EQU         $11                       ; command fan (cloverleaf)
  198. checkMark         EQU         $12                       ; check mark for menus
  199. diamondMark       EQU         $13                       ; diamond mark for menus
  200. appleMark         EQU         $14                       ; desk ornament menu title
  201.  
  202. ; MenuList Data Structure Definition -- one per menuBar
  203.  
  204. ; 6 Byte header
  205. lastMenu          EQU         0                         ; number of bytes in this menuList [word]
  206. lastRight         EQU         2                         ; h coordinate of 1st free point in menuBar [word]
  207. ; one of the following per menu
  208. menuoH            EQU         0                         ; menu handle [handle]
  209. menuLeft          EQU         4                         ; coordinate of left edge of menu [word]
  210.  
  211. ; MenuInfo Data Structure -- one per menu
  212.  
  213. menuID            EQU         0                         ; unique ID for each menuBar [word]
  214. menuWidth         EQU         2                         ; menu width [word]
  215. menuHeight        EQU         4                         ; menu height [word]
  216. menuDefHandle     EQU         6                         ; menu definition proc [handle]
  217. menuEnable        EQU         $A                        ; enable flags, one bit/item [long]
  218. menuData          EQU         $E                        ; menu item string [STRING]
  219. menuBlkSize       EQU         $E                        ; size of a menu block plus dataString
  220.  
  221. ; MenuString Data Structure -- one per menu item
  222.  
  223. itemIcon          EQU         0                         ; icon byte
  224. itemCmd           EQU         1                         ; apple (command key) byte
  225. itemMark          EQU         2                         ; checkmark character byte
  226. itemStyle         EQU         3                         ; style byte
  227.  
  228. ; Menu Manager Globals
  229.  
  230. MenuList          EQU         $A1C                      ; current menuBar list structure [handle]
  231. MenuFlash         EQU         $A24                      ; flash feedback count [word]
  232. MenuHook          EQU         $A30                      ; user hook during menuSelect [pointer]
  233. MBarEnable        EQU         $A20                      ; menuBar enable for desk accessories[word]
  234. MBarHook          EQU         $A2C                      ; user hook during menuSelect [pointer]
  235.  
  236. ;new Menu Manager stuff
  237.  
  238. MBarHeight        EQU         $BAA                      ; (word) height of menu bar (usually 20)
  239.  
  240. ;+ Control Manager
  241.  
  242. ; Part Codes
  243.  
  244. inButton          EQU         10                        ; in a push button
  245. inCheckBox        EQU         11                        ; in a checkBox button
  246. inUpButton        EQU         20                        ; in up button area of a dial
  247. inDownButton      EQU         21                        ; in down button area of a dial
  248. inPageUp          EQU         22                        ; in page up (gray) area of a dial
  249. inPageDown        EQU         23                        ; in page down (gray) area of a dial
  250. inThumb           EQU         129                       ; in thumb area of a dial
  251.  
  252. ; Constants for axis parameter of DragGrayRgn and DragControl
  253.  
  254. noConstraint      EQU         0                         ; free form dragging
  255. hAxisOnly         EQU         1                         ; horizontally only
  256. vAxisOnly         EQU         2                         ; vertically only
  257.  
  258. ; Resource ID's for controls
  259.  
  260. pushButProc       EQU         0                         ; rounded-corner pushButtons CDEF ID
  261. checkBoxProc      EQU         1                         ; check-box type buttons CDEF ID
  262. radioButProc      EQU         2                         ; radio buttons CDEF ID
  263. scrollBarProc     EQU         16                        ; scrollBar CDEF ID
  264. useWFont          EQU         8                         ; add this to get window font CDEF ID
  265. sBarPatID         EQU         17                        ; scrollBar pattern ID
  266.  
  267.  
  268. ; Popup Control Constants 
  269. popupMenuCDEFproc        EQU    1008                    ; popup menu CDEF ID
  270.  
  271. ; Popup Variation Codes 
  272. popupFixedWidth            EQU    $0001                    ; size will not vary with menu items
  273. popupReserved            EQU    $0002                    ; was popupUseCQD
  274. popupUseAddResMenu        EQU    $0004                    ; menu = AddResMenu(CNTL's refCon)
  275. popupUseWFont            EQU    $0008                    ; use this for window font/size/face
  276.  
  277. ; Popup Title characteristics
  278. popupTitleBold            EQU    $00000100                ; styles for the popup title
  279. popupTitleItalic        EQU    $00000200
  280. popupTitleUnderline        EQU    $00000400
  281. popupTitleOutline        EQU    $00000800
  282. popupTitleShadow        EQU    $00001000
  283. popupTitleCondense        EQU    $00002000
  284. popupTitleExtend        EQU    $00004000
  285. popupTitleNoStyle        EQU    $00008000
  286.  
  287. popupTitleLeftJust        EQU    $00000000                ; justification for the title
  288. popupTitleCenterJust    EQU    $00000001
  289. popupTitleRightJust        EQU    $000000FF
  290.  
  291.  
  292. ; Control Template
  293.  
  294. nextControl       EQU         $0                        ; next control in the list [handle]
  295. contrlOwner       EQU         $4                        ; owning window [pointer]
  296. contrlRect        EQU         $8                        ; bounding rectangle [8 bytes]
  297. contrlVis         EQU         $10                       ; visible state [byte]
  298. contrlHilite      EQU         $11                       ; hilite state [byte]
  299. contrlValue       EQU         $12                       ; current value of control [word]
  300. contrlMin         EQU         $14                       ; minimum value of control [word]
  301. contrlMax         EQU         $16                       ; maximum value of control [word]
  302. contrlDefHandle   EQU         $18                       ; control definition procedure [handle]
  303. contrlData        EQU         $1C                       ; data for definition proc [handle]
  304. contrlAction      EQU         $20                       ; local actionProc [pointer]
  305. contrlRFcon       EQU         $24                       ; refcon defined by application [long]
  306. contrlTitle       EQU         $28                       ; title string [STRING]
  307. contrlSize        EQU         $28                       ; size of control data structure less title
  308.  
  309. ; Control Manager Globals
  310.  
  311. DragPattern       EQU         $A34                      ; DragTheRgn pattern [8 bytes]
  312. DragFlag          EQU         $A44                      ; implicit parameter to DragControl [word]
  313. CurDragAction     EQU         $A46                      ; implicit actionProc for dragControl [pointer]
  314.  
  315.  
  316. ;+ Text Edit
  317.  
  318.  
  319. ; Justification styles
  320.  
  321. teJustLeft        EQU         0                         ; left justified text
  322. teJustRight       EQU         -1                        ; right justified text
  323. teJustCenter      EQU         1                         ; center justified text
  324. teForceLeft       EQU         -2                        ; for Arabic fonts, force left justification
  325.  
  326. ; new names for the Justification styles
  327. teFlushDefault    EQU            0                        ; flush according to the line direction
  328. teCenter        EQU            1                        ; center justify
  329. teFlushRight    EQU            -1                        ; flush right for all scripts
  330. teFlushLeft        EQU            -2                        ; flush left for all scripts
  331.  
  332. ; Text Edit Record
  333.  
  334. teDestRect        EQU         $0                        ; destination rectangle [8 bytes]
  335. teViewRect        EQU         $8                        ; view rectangle rectangle [8 bytes]
  336. teSelRect         EQU         $10                       ; select rectangle [8 bytes]
  337. teLineHite        EQU         $18                       ; lineheight [word]
  338. teAscent          EQU         $1A                       ; first baseline offset [word]
  339. teSelPoint        EQU         $1C                       ; selection point [long]
  340. teSelStart        EQU         $20                       ; selection start [word]
  341. teSelEnd          EQU         $22                       ; selection end [word]
  342. teActive          EQU         $24                       ; active [byte]
  343. teWordBreak       EQU         $26                       ; word break routine [pointer]
  344. teClikProc        EQU         $2A                       ; click loop routine [pointer]
  345. teClikTime        EQU         $2E                       ; time of last click [long]
  346. teClikLoc         EQU         $32                       ; location of double click [long]
  347. teCarTime         EQU         $34                       ; time for next caret toggle [long]
  348. teCarOn           EQU         $38                       ; is caret on? [byte]
  349. teCarAct          EQU         $39                       ; is caret active? [byte]
  350. teJust            EQU         $3A                       ; fill style [word]
  351. teLength          EQU         $3C                       ; length of text below [word]
  352. teTextH           EQU         $3E                       ; text [handle]
  353. teRecBack         EQU         $42                       ; unused [word]
  354. teRecLine         EQU         $44                       ; unused [word]
  355. teLftClick        EQU         $46                       ; click was to left? [byte]
  356. teLftCaret        EQU         $47                       ; caret was to left? [byte]
  357. teCROnly          EQU         $48                       ; <CR> only for line breaks? [byte]
  358. teFontStuff       EQU         $4A                       ; space for font specifier [8 bytes]
  359. teFont            EQU         $4A                       ; text font [word]
  360. teFace            EQU         $4C                       ; text face [word]
  361. teMode            EQU         $4E                       ; text mode [word]
  362. teSize            EQU         $50                       ; text size [word]
  363. teGrafPort        EQU         $52                       ; grafport for editting [pointer]
  364. teHiHook          EQU         $56                       ; hook for hilite routine [pointer]
  365. teCarHook         EQU         $5A                       ; hook for hilite routine [pointer]
  366. teNLines          EQU         $5E                       ; number of lines [word]
  367. teLines           EQU         $60                       ; line starts [words...]
  368. teRecSize         EQU         $68                       ; base size of a record w/o lines
  369.  
  370. ; Text Edit Globals
  371.  
  372. TEDoText          EQU         $A70                      ; textEdit doText proc hook [pointer]
  373. TERecal           EQU         $A74                      ; textEdit recalText proc hook [pointer]
  374. TEScrpLength      EQU         $AB0                      ; textEdit Scrap Length [word]
  375. TEScrpHandle      EQU         $AB4                      ; textEdit Scrap [handle]
  376. TEWdBreak         EQU         $AF6                      ; default word break routine [pointer]
  377. TEFindWord        EQU            $7F8                    ; low-memory hook for TextEdit's FindWord routine
  378.  
  379. ;new TE stuff
  380.  
  381. WordRedraw        EQU         $BA5                      ; (byte) - used by TextEdit RecalDraw
  382. TESysJust         EQU         $BAC                      ; (word) system justification (intl. textEdit)
  383. TEFlags           EQU         teRecBack                 ; turn whole byte into bit flags
  384. teFAutoPos        EQU         6                         ; set this bit for auto position/scroll
  385.  
  386. ;+ Dialog Manager
  387.  
  388. ; Item codes in item list
  389.  
  390. userItem          EQU         0                         ; application-defined (dialog only)
  391. ctrlItem          EQU         4                         ; must be added to following four items
  392. btnCtrl           EQU         0                         ; standard button
  393. chkCtrl           EQU         1                         ; standard check box
  394. radCtrl           EQU         2                         ; standard radio button
  395. resCtrl           EQU         3                         ; control defined in resource file
  396. statText          EQU         8                         ; static text
  397. editText          EQU         16                        ; editable text (dialog only)
  398. iconItem          EQU         32                        ; icon
  399. picItem           EQU         64                        ; quickdraw picture
  400. itemDisable       EQU         128                       ; add to any of above to disable
  401.  
  402.  
  403. ; Generic buttons
  404.  
  405. okButton          EQU         1                         ; OK button
  406. cancelButton      EQU         2                         ; Cancel button
  407.  
  408. ; Alert/Dialog Resource ID's
  409.  
  410. stopIcon          EQU         0                         ; stop icon ID
  411. noteIcon          EQU         1                         ; note icon ID
  412. cautionIcon       EQU         2                         ; caution icon ID
  413.  
  414. ; Dialog Template
  415.  
  416. dBounds           EQU         $0                        ; dialog bounds rectangle
  417. dWindProc         EQU         $8                        ; window proc ID
  418. dVisible          EQU         $A                        ; visible flag
  419. dGoAway           EQU         $C                        ; go away flag
  420. dRefCon           EQU         $E                        ; reference constant
  421. dItems            EQU         $12                       ; item list ID and handle
  422. dTitle            EQU         $14                       ; dialog window title
  423.  
  424. ; Alert Template
  425.  
  426. aBounds           EQU         $0                        ; alert box height and width
  427. aItems            EQU         $8                        ; item list ID
  428. aStages           EQU         $A                        ; stages word
  429.  
  430. ; Dialog/Alert Window Record
  431.  
  432. dWindow           EQU         $0                        ; window record
  433. items             EQU         $9C                       ; Item list [handle]
  434. teHandle          EQU         $A0                       ; textEdit object [handle]
  435. editField         EQU         $A4                       ; current field being edited [word]
  436. editOpen          EQU         $A6                       ; is editting open? [word]
  437. aDefItem          EQU         $A8                       ; default item for alerts [word]
  438. dWindLen          EQU         $AA                       ; dialog record length
  439.  
  440. ; In each item
  441.  
  442. itmHndl           EQU         0                         ; handle to the item
  443. itmRect           EQU         $4                        ; bounding rect of item
  444. itmType           EQU         $C                        ; item type
  445. itmData           EQU         $D                        ; item string, must be even length
  446.  
  447. ; Dialog Manager Globals
  448.  
  449. ANumber           EQU         $A98                      ; active alert ID [word]
  450. ACount            EQU         $A9A                      ; # times this alert called [word]
  451. DABeeper          EQU         $A9C                      ; beep routine [pointer]
  452. DAStrings         EQU         $AA0                      ; paramText substutution strings [4 handles]
  453. DlgFont           EQU         $AFA                      ; default dialog font ID [word]
  454.  
  455.  
  456. ;+ Package Globals
  457.  
  458.  
  459. AppPacks          EQU         $AB8                      ; packages' code [8 handles]
  460.  
  461.  
  462. ;+ Finder related Globals
  463.  
  464.  
  465. FinderName        EQU         $2E0                      ; "Finder" name [STRING[15]]
  466. AppParmHandle     EQU         $AEC                      ; handle to hold application parameters
  467.  
  468.  
  469. ;+ Miscellaneous Globals
  470.  
  471.  
  472. ApplScratch       EQU         $A78                      ; application scratch area [12 Bytes]
  473. ToolScratch       EQU         $9CE                      ; scratch area [8 bytes]
  474. TempRect          EQU         $9FA                      ; scratch rectangle [8 bytes]
  475.  
  476. ; System Patterns
  477.  
  478. sysPatListID      EQU         0                         ; ID of PAT# which contains 38 patterns
  479.  
  480.                   IF          wholeTools THEN
  481.  
  482. ; Resource Manager
  483.  
  484. mCCMask           EQU         $60                       ; mapCompact + mapChanged
  485. mChMask           EQU         $20                       ; mapChanged
  486. mCoMask           EQU         $40                       ; mapCompact
  487.  
  488. ; Font Manager
  489.  
  490. ; Font header values
  491.  
  492. propFont          EQU         $9000                     ; proportional font type
  493. prpFntH           EQU         $9001                     ; with height table
  494. prpFntW           EQU         $9002                     ; with width table
  495. prpFntHW          EQU         $9003                     ; with height & width table
  496. fixedFont         EQU         $B000                     ; fixed-pitch font type
  497. fxdFntH           EQU         $B001                     ; with height table
  498. fxdFntW           EQU         $B002                     ; with width table
  499. fxdFntHW          EQU         $B003                     ; with height & width table
  500. fontWid           EQU         $ACB0                     ; width-only font type
  501.  
  502. ; control/status codes for linkage w/font manager
  503.  
  504. fMgrCtl1          EQU         8                         ; printer drivers
  505.  
  506. ; Font Header Data Record
  507.  
  508. fFontType         EQU         0                         ; font type [word]
  509. fFirstChar        EQU         2                         ; ASCII code of first char [word]
  510. fLastChar         EQU         4                         ; ASCII code of last char [word]
  511. fWidMax           EQU         6                         ; maximum width of any char in pixels [word]
  512. fKernMax          EQU         8                         ; Negative of maximum character kern [word]
  513. fNDescent         EQU         10                        ; negative of descent [word]
  514. fFRectWidth       EQU         12                        ; width of font rectangle [word]
  515. fFRectHeight      EQU         14                        ; height of font rectangle [word]
  516. fOWTLoc           EQU         16                        ; offset to offset/width table [word]
  517. fAscent           EQU         18                        ; ascent above baseline in pixels [word]
  518. fDescent          EQU         20                        ; descent below baseline in pixels [word]
  519. fLeading          EQU         22                        ; space between lines in pixels [word]
  520. fRowWords         EQU         24                        ; row width of bit image / 2 [word]
  521.  
  522. ; Font Manager Input Record (CurFMInput)
  523.  
  524. fmInFamily        EQU         0                         ; family [word]
  525. fmInSize          EQU         2                         ; size [word]
  526. fmInFace          EQU         4                         ; face [word]
  527. fmInNeedBits      EQU         5                         ; needBits [byte]
  528. fmInDevice        EQU         6                         ; device number [byte]
  529. fmInNumer         EQU         8                         ; numerator of scale [fixed]
  530. fmInDenom         EQU         12                        ; denominator of scale [fixed]
  531.  
  532.  
  533. ; Font Manager Output record (FMgrOutRec)
  534.  
  535. fmOutError        EQU         0                         ; error code [word]
  536. fmOutFontH        EQU         2                         ; the actual font [handle]
  537. fmOutBold         EQU         6                         ; bolding factor [byte]
  538. fmOutItalic       EQU         7                         ; italic factor [byte]
  539. fmOutULOffset     EQU         8                         ; underline offset [byte]
  540. fmOutULShadow     EQU         9                         ; underline halo [byte]
  541. fmOutULThick      EQU         10                        ; underline thickness [byte]
  542. fmOutShadow       EQU         11                        ; shadow factor [byte]
  543. fmOutExtra        EQU         12                        ; extra horizontal width [byte]
  544. fmOutAscent       EQU         13                        ; height above baseline [byte]
  545. fmOutDescent      EQU         14                        ; height below baseline [byte]
  546. fmOutWidMax       EQU         15                        ; maximum width of character [byte]
  547. fmOutLeading      EQU         16                        ; space between lines [byte]
  548. fmOutNumer        EQU         18                        ; point for numerators of scale factor [long]
  549. fmOutDenom        EQU         22                        ; point for denominators of scale factor [long]
  550.  
  551.  
  552. ;WidthTable data structure
  553.  
  554. widTabData        EQU         0                         ;ARRAY[1..256] OF LONGINT character widths
  555. widTabFont        EQU         1024                      ;Handle font record used to build table
  556. widthSExtra       EQU         1028                      ;LONGINT space extra used for table
  557. widthStyle        EQU         1032                      ;LONGINT extra due to style
  558. widthFID          EQU         1036                      ;INTEGER font family ID
  559. widthFSize        EQU         1038                      ;INTEGER font size request
  560. widthFace         EQU         1040                      ;INTEGER style (face) request
  561. widthDevice       EQU         1042                      ;INTEGER device requested
  562. widthVInScale     EQU         1044                      ;FIXED scale factors requested
  563. widthHInScale     EQU         1048                      ;FIXED scale factors requested
  564. widthAFID         EQU         1052                      ;INTEGER actual font family ID for table
  565. widthFHand        EQU         1054                      ;Handle family record used to build up table
  566. widthUsedFam      EQU         1058                      ;BOOLEAN used fixed point family widths
  567. widthAFace        EQU         1059                      ;BYTE actual face produced
  568. widthVOutput      EQU         1060                      ;INTEGER vertical scale output value
  569. widthHOutput      EQU         1062                      ;INTEGER horizontal scale output value
  570. widthVFactor      EQU         1064                      ;INTEGER vertical scale output value
  571. widthHFactor      EQU         1066                      ;INTEGER horizontal scale output value
  572. widthASize        EQU         1068                      ;INTEGER actual size of actual font used
  573. ;widTabSize        EQU         1070                      ;INTEGER total size of table
  574.  
  575. ; Font Family Definition
  576.  
  577. ffFlags           EQU         0                         ; flags for family (word)
  578. ffFamID           EQU         2                         ; family ID number (word)
  579. ffFirst           EQU         4                         ; ASCII code of first character (word)
  580. ffLast            EQU         6                         ; ASCII code of last character (word)
  581. ffAscent          EQU         8                         ; maximum ascent expressed for 1 pt (word)
  582. ffDescent         EQU         10                        ; maximum descent expressed for 1 pt (word)
  583. ffLeading         EQU         12                        ; maximum leading expressed for 1 pt (word)
  584. ffWidMax          EQU         14                        ; maximum widMax expressed for 1 pt (word)
  585. ffWTabOff         EQU         16                        ; offset to width table (long)
  586. ffKernOff         EQU         20                        ; offset to kerning table (long)
  587. ffStylOff         EQU         24                        ; offset to style mapping table (long)
  588. ffProperty        EQU         28                        ; style property info (12 words)
  589. ffIntl            EQU         46                        ; reserved for international use (2 words)
  590. ffVersion         EQU         50                        ; FOND version number
  591.  
  592. ; Font Characterization Table
  593.  
  594. dpiVert           EQU         0                         ; vertical dots per inch [word]
  595. dpiHoriz          EQU         2                         ; horizontal dots per inch [word]
  596. boldChr           EQU         4                         ; bold characteristics [3 bytes]
  597. italChr           EQU         7                         ; italic characteristics [3 bytes]
  598. ; unused [3 bytes]
  599. outlineChr        EQU         13                        ; outline characteristics [3 bytes]
  600. shadowChr         EQU         16                        ; shadow characteristics [3 bytes]
  601. condChr           EQU         19                        ; condensed characteristics [3 bytes]
  602. extendChr         EQU         22                        ; extended characteristics [3 bytes]
  603. underChr          EQU         25                        ; underline characteristics [3 bytes]
  604.  
  605. ; Globals
  606.  
  607. CurFMFamily       EQU         $988                      ; current font family
  608. CurFMSize         EQU         $98A                      ; current font size
  609. CurFMFace         EQU         $98C                      ; current font face
  610. CurFMNeedBits     EQU         $98D                      ; boolean specifying whether it needs strike
  611. CurFMDevice       EQU         $98E                      ; current font device
  612. CurFMNumer        EQU         $990                      ; current numerator of scale factor
  613. CurFMDenom        EQU         $994                      ; current denominator of scale factor
  614. FOutRec           EQU         $998                      ; Font Manager output record
  615. FMDotsPerInch     EQU         $9B2                      ; h,v dotsPerInch of current device
  616. FMStyleTab        EQU         $9B6                      ; style heuristic table supplied by device
  617. RomFont0          EQU         $980                      ; system font [handle]
  618. GotStrike         EQU         $986                      ; Do we have the strike? [byte]
  619.  
  620.  
  621. ; Window Manager
  622.  
  623. ; Window Definition Procedure Messages
  624.  
  625. wDrawMsg          EQU         0                         ; draw yourself
  626. wHitMsg           EQU         1                         ; hit test
  627. wCalcRgnMsg       EQU         2                         ; recalculate your regions
  628. wInitMsg          EQU         3                         ; initialize yourself
  629. wDisposeMsg       EQU         4                         ; dispose any private data
  630. wGrowMsg          EQU         5                         ; drag out grow outline
  631. wGIconMsg         EQU         6                         ; draw the grow icon
  632. OldStructure      EQU         $9E6                      ; saved structure region [handle]
  633. OldContent        EQU         $9EA                      ; saved content region [handle]
  634. SaveVisRgn        EQU         $9F2                      ; temporarily saved visRegion [handle]
  635. CurDeKind         EQU         $A22                      ; window kind of deactivated window [word]
  636. SaveUpdate        EQU         $9DA                      ; Enable update accumulation? [word]
  637.  
  638. ; Menu Manager
  639.  
  640. ; Menu Definition Procedure Messages
  641.  
  642. mDrawMsg          EQU         0                         ; draw yourself
  643. mChooseMsg        EQU         1                         ; select an item
  644. mSizeMsg          EQU         2                         ; calculate your size
  645.  
  646. ; Menu Resource IDs
  647.  
  648. textMenuProc      EQU         0                         ; standard text menu MDEF ID
  649. TheMenu           EQU         $A26                      ; ID of hilited menu [word]
  650. SavedHandle       EQU         $A28                      ; saved bits under a menu [handle]
  651.  
  652. ;misc Menu stuff
  653.  
  654. MrMacHook         EQU         $A2C                      ; Mr. Macintosh hook [pointer]
  655.  
  656. ; Control manager
  657.  
  658. ; Control Definition Procedure Messages
  659.  
  660. drawCtlMsg        EQU         0                         ; draw message
  661. hitCtlMsg         EQU         1                         ; hit test message
  662. calcCtlMsg        EQU         2                         ; calc region message
  663. newCtlMsg         EQU         3                         ; init message
  664. dispCtlMsg        EQU         4                         ; dispose any private data message
  665. posCtlMsg         EQU         5                         ; adjust indicator position message
  666. thumbCtlMsg       EQU         6                         ; calculate rectangles for thumb dragging
  667. dragCtlMsg        EQU         7                         ; custom drag message
  668. trackCtlMsg       EQU         8                         ; track yourself message
  669. calcWholeCtlMsg   EQU         10                        ; calc whole region message
  670. calcThumbCtlMsg   EQU         11                        ; calc indicator region message
  671.  
  672. ;stage definition--packed 2 to a byte, 4 stages in a word
  673.  
  674. volBits           EQU         3                         ; number of beeps
  675. alBit             EQU         4                         ; alert bit (put up box this time?)
  676. okDismissal       EQU         8                         ; bit for OK/Cancel default in each stage
  677.  
  678. ; DialogList Data Structure Definitions
  679.  
  680. dlgMaxIndex       EQU         0                         ; maximum index (=items-1) stored here
  681.  
  682.  
  683. SaveProc          EQU         $A90                      ; address of Save failsafe procedure
  684. SaveSP            EQU         $A94                      ; Safe SP for restart or save
  685.  
  686. ; Package Manager
  687.  
  688. FPState           EQU         $A4A                      ; floating point state [6 bytes]
  689. App2Packs         EQU         $BC8                      ; $BC8-$BE7 eight more package handles
  690.  
  691. ; Resource Manager
  692.  
  693. RMGRPerm          EQU         $BA4                      ; (byte) - permission byte for OpenResFile
  694.  
  695. ; Miscellaneous Constants
  696.  
  697. screenRadius      EQU         $00100010                 ; rounded corners for desk area
  698.  
  699. ; Miscellaneous Globals
  700.  
  701. IconBitmap        EQU         $A0E                      ; bitmap used for plotting things
  702. TaskLock          EQU         $A62                      ; re-entering SystemTask [byte]
  703. CloseOrnHook      EQU         $A88                      ; hook for closing desk ornaments
  704.  
  705. ;new MacApp stuff
  706.  
  707. MAErrProc         EQU         $BE8                      ; (long) MacApp error proc address
  708. MASuperTab        EQU         $BEC                      ; (long) handle to MacApp superclass table
  709.  
  710.  
  711. ;**************** NEW TOOL EQUATES ************
  712.  
  713. ; Font Manager
  714.  
  715. ; addition to FMgrOutRec (was unused)
  716.  
  717. fmOutCurStyle     EQU         17                        ;style algorthmically applied by QuickDraw
  718.  
  719. ;___________________________________________________________________________
  720. ;
  721. ; Window Manager
  722.  
  723. ; auxWinRec structure
  724.  
  725. awNext            EQU         $0                        ;next in chain [Handle]
  726. awOwner           EQU         $4                        ;owner ID [WindowPtr]
  727. awCTable          EQU         $8                        ;color table [CTabHandle]
  728. dialogCItem       EQU         $C                        ;handle to dialog manager structures [handle]
  729. awFlags           EQU         $10                       ;handle for Ernie [handle]
  730. awResrv           EQU         $14                       ;for expansion [longint]
  731. awRefCon          EQU         $18                       ;user constant [longint]
  732. auxWinSize        EQU         $1C                       ;size of record
  733. AuxWinHead        EQU         $0CD0                     ;[handle] Window Aux List head
  734.  
  735. ; Window Part Identifiers which correlate color table entries with window elements
  736.  
  737. wContentColor     EQU         0
  738. wFrameColor       EQU         1
  739. wTextColor        EQU         2
  740. wHiliteColor      EQU         3
  741. wTitleBarColor    EQU         4
  742.  
  743.  
  744. ;___________________________________________________________________________
  745. ;
  746. ; Control Manager
  747.  
  748. ; auxCtlRec structure
  749.  
  750. acNext            EQU         $0                        ;next in chain [AuxCtlHndl]
  751. acOwner           EQU         $4                        ;owner ID [ControlHandle]
  752. acCTable          EQU         $8                        ;color table [CCTabHandle]
  753. acFlags           EQU         $C                        ;misc flag byte [word]
  754. acReserved        EQU         $E                        ;for expansion [LONGINT]
  755. acRefCon          EQU         $12                       ;user constant [LONGINT]
  756. acSize            EQU         $16                       ;size of record
  757. AuxCtlHead        EQU         $0CD4                     ;[handle] Control Aux List head
  758.  
  759. ; Here are some equates for the colors of control parts
  760.  
  761. cFrameColor       EQU         0
  762. cBodyColor        EQU         1
  763. cTextColor        EQU         2
  764. cThumbColor       EQU         3
  765.  
  766. ;___________________________________________________________________________
  767. ;
  768. ; Menu Manager
  769.  
  770. MenuDisable       EQU         $0B54                     ; menuID and Item when disabled item selected
  771. MBDFHndl          EQU         $0B58                     ; handle to current menu bar defproc
  772. MBSaveLoc         EQU         $0B5C                     ; handle to the mbarproc private data
  773. MenuCInfo         EQU         $0D50                     ; hanel to menu color information table
  774. TopMenuItem       EQU         $A0A                      ; pixel value of top of scrollable menu
  775. AtMenuBottom      EQU         $A0C                      ; pixel value of bottom of scrollable menu
  776.  
  777. ;
  778. ; color menu table equates (mct = menu color table)
  779. ;
  780. mctID             EQU         $0
  781. mctItem           EQU         $2
  782. mctRGB1           EQU         $4
  783. mctRGB2           EQU         $A
  784. mctRGB3           EQU         $10
  785. mctRGB4           EQU         $16
  786. mctReserved       EQU         $1C
  787. mctEntrySize      EQU         $1E
  788.  
  789. ;
  790. ; miscellaneous equates for hierarchical menus
  791. ;
  792.  
  793. hMenuCmd          EQU         $1B                       ; itemCmd == $1B ==> hierarchical menu for this item
  794. scriptMenuCmd     EQU         28                        ; itemCmd == $1C ==> item to be displayed in script font
  795. hierMenu          EQU         -1                        ; InsertMenu(handle, hierMenu), when beforeID ==
  796. ; hierMenu, the handle is inserted in the
  797. ; hierarchical menuList
  798. mPopUpMsg         EQU         3                         ; menu defProc messages - place yourself
  799. ; miscellaneous hierarchical equates
  800. ;
  801. hMenuMark         EQU         200                       ; 'ยป' = menu character indicates item with hierarchical menu
  802.  
  803. ;
  804. ; miscellaneous menubar equates
  805. ;
  806. mbMenu1Loc        EQU         $A                        ; first menu is 10 pixels from left side of screen
  807. mctAllIds         EQU         -97                       ; search for all IDs for the given Item
  808.  
  809. ;
  810. ; color menu table search (and destroy) messages (mct = menu color table)
  811. ;
  812. mctAllItems       EQU         -98                       ; search for all Items for the given ID
  813. mctLastIDIndic    EQU         -99                       ; last entry in color table has this in ID field
  814.  
  815. ;___________________________________________________________________________
  816. ;
  817. ; Text Edit
  818.  
  819. ; Set/Replace style modes
  820.  
  821. fontBit           EQU         0                         ; set font
  822. faceBit           EQU         1                         ; set face
  823. sizeBit           EQU         2                         ; set size
  824. clrBit            EQU         3                         ; set color
  825. addSizeBit        EQU         4                         ; add size mode
  826. toglBit           EQU         5                         ;set faces in toggle mode
  827. ; TESetStyle/TEContinuousStyle modes
  828. doFont            EQU         $01
  829. doFace            EQU         2
  830. doSize            EQU         4
  831. doColor           EQU         8
  832. doAll             EQU         15                        ; set font/face/size/color
  833. addSize           EQU         16
  834. doToggle          EQU         32
  835. ; New internal dispatch table
  836. ; --offsets into TEDispatchRec
  837. EOLHook           EQU         0                         ; [ProcPtr] TEEOLHook
  838. DRAWHook          EQU         4                         ; [ProcPtr] TEWidthHook
  839. WIDTHHook         EQU         8                         ; [ProcPtr] TEDrawHook
  840. HITTESTHook       EQU         12                        ; [ProcPtr] TEHitTestHook
  841. nWIDTHHook        EQU            24                        ; [ProcPtr] nTEWidthHook <6>
  842. TextWidthHook    EQU            28                        ; [ProcPtr] TETextWidthHook    <13>
  843. ; --selectors for TECustomHook
  844. IntEOLHook        EQU         0
  845. IntDrawHook       EQU         1
  846. IntWidthHook      EQU         2
  847. IntHitTestHook    EQU         3
  848. IntNWidthHook    EQU            6                        ; new version of WidthHook <6>
  849. IntTextWidthHook    EQU        7                        ; new TextWidthHook            <13>
  850. teDispatchH       EQU         teRecBack                 ; new handle to internal dispatch record
  851. ; handle to style record
  852.  
  853. teStylesH         EQU         $4A                       ; replaces teFont/teFace
  854.  
  855. ; offsets into TEStyleRec
  856.  
  857. nRuns             EQU         $0                        ; [INTEGER] # of entries in styleStarts array
  858. nStyles           EQU         $2                        ; [INTEGER] # of distinct styles
  859. styleTab          EQU         $4                        ; [STHandle] handle to distinct styles
  860. lhTab             EQU         $8                        ; [LHHandle] handle to line heights
  861. teRefCon          EQU         $C                        ; [LONGINT] reserved
  862. nullStyle         EQU         $10                       ; [NullStHandle] to style set at null selection
  863. runs              EQU         $14                       ; array of styles
  864.  
  865. ; offsets into NullStRec
  866.  
  867. teReserved        EQU         0                         ; [LONGINT] reserved for future expansion
  868. nullScrap         EQU         4                         ; [StScrpHandle] handle to scrap style table.
  869. nullStSize        EQU         8
  870.  
  871. ; offsets into StyleRun array
  872.  
  873. startChar         EQU         0                         ; [INTEGER] offset into text to start of style
  874. styleIndex        EQU         2                         ; [INTEGER] style index
  875. stStartSize       EQU         4                         ; size of a styleStarts entry
  876.  
  877. ; offsets into STElement
  878.  
  879. stCount           EQU         0                         ; [INTEGER] # of times this style is used
  880. stHeight          EQU         2                         ; [INTEGER] line height
  881. stAscent          EQU         4                         ; [INTEGER] ascent
  882. stFont            EQU         6                         ; [INTEGER] font
  883. stFace            EQU         8                         ; [Style] face
  884. stSize            EQU         10                        ; [INTEGER] size
  885. stColor           EQU         12                        ; [RGBColor] color
  886. stRecSize         EQU         18                        ; size of a teStylesRec
  887.  
  888. ; offsets into TextStyle
  889.  
  890. tsFont            EQU         0                         ; [INTEGER] font
  891. tsFace            EQU         2                         ; [Style] face
  892. tsSize            EQU         4                         ; [INTEGER] size
  893. tsColor           EQU         6                         ; [RGBColor] color
  894. styleSize         EQU         12                        ; size of a StylRec
  895.  
  896. ; offsets into StScrpRec
  897.  
  898. scrpNStyles       EQU         0                         ; [INTEGER] # of styles in scrap
  899. scrpStyleTab      EQU         2                         ; [ScrpSTTable] start of scrap styles array
  900.  
  901. ; offsets into scrpSTElement
  902.  
  903. scrpStartChar     EQU         0                         ; [LONGINT] char where this style starts
  904. scrpHeight        EQU         4                         ; [INTEGER] line height
  905. scrpAscent        EQU         6                         ; [INTEGER] ascent
  906. scrpFont          EQU         8                         ; [INTEGER] font
  907. scrpFace          EQU         10                        ; [Style] face
  908. scrpSize          EQU         12                        ; [INTEGER] size
  909. scrpColor         EQU         14                        ; [RGBColor] color
  910. scrpRecSize       EQU         20                        ; size of a scrap record
  911.  
  912. teFAutoScr            EQU        0                        ; (00000001b)
  913. ; feature definitions for TEFeatureFlag
  914. teFTextBuffering  EQU         1                         ; (00000010b)
  915. teFOutlineHilite  EQU         2                         ; (00000100b)
  916. teFInlineInput      EQU        3                        ; (00001000b)
  917. teFUseTextServices    EQU        4                        ; (00010000b)
  918.  
  919. ; action for the new "bit (un)set" interface, TEFeatureFlag
  920. TEBitClear        EQU         0
  921. TEBitSet          EQU         1                         ; set the selector bit.
  922. TEBitTest         EQU         -1                        ; no change; just return the present value
  923.  
  924. ; constants for identifying the routine that called FindWord <5>
  925. teWordSelect Equ        4                        ; clickExpand to select word
  926. teWordDrag     Equ        8                        ; clickExpand to drag new word
  927. teFromFind     Equ        12                        ; FindLine called it ($0C)
  928. teFromRecal     Equ        16                        ; RecalLines called it ($10)
  929.  
  930. ; Text Edit Selectors:
  931.  
  932. teStylePaste      EQU         0
  933. teSetStyle        EQU         1
  934. teReplaceStyle    EQU         2
  935. teGetStyle        EQU         3
  936. getStyleHandle    EQU         4
  937. setStyleHandle    EQU         5
  938. getStyleScrap     EQU         6
  939. teStyleInsert     EQU         7
  940. teGetPoint        EQU         8
  941. teGetHeight       EQU         9
  942.  
  943. teContinuousStyle EQU         10
  944. setStyleScrap     EQU         11
  945. teCustomHook      EQU         12
  946. teNumStyles       EQU         13
  947. teFeatureFlag    EQU            14                        ; new for System 6.0.5/Script Systems 6.0.4 <1.5>
  948.  
  949.                   MACRO
  950.                   _TEContinuousStyle
  951.                   MOVE.W      #teContinuousStyle,-(SP)
  952.                   DC.W        $A83D                     ; _TEDispatch
  953.                   ENDM
  954.  
  955.                   MACRO
  956.                   _SetStyleScrap
  957.                   MOVE.W      #setStyleScrap,-(SP)
  958.                   DC.W        $A83D                     ; _TEDispatch
  959.                   ENDM
  960.  
  961.                   MACRO
  962.                   _TECustomHook
  963.                   MOVE.W      #teCustomHook,-(SP)
  964.                   DC.W        $A83D                     ; _TEDispatch
  965.                   ENDM
  966.  
  967.                   MACRO
  968.                   _TENumStyles
  969.                   MOVE.W      #teNumStyles,-(SP)
  970.                   DC.W        $A83D                     ; _TEDispatch
  971.                   ENDM
  972.  
  973. ; new for System 6.0.5/Script Systems 6.0.4 <1.5>
  974.                   MACRO
  975.                   _TEFeatureFlag
  976.                   MOVE.W      #teFeatureFlag,-(SP)
  977.                   DC.W        $A83D                     ; _TEDispatch
  978.                   ENDM
  979.  
  980.                   MACRO
  981.                   _TEStylePaste
  982.                   MOVE.W      #teStylePaste,-(SP)
  983.                   DC.W        $A83D                     ; _TEDispatch
  984.                   ENDM
  985.  
  986.                   MACRO
  987.                   _TESetStyle
  988.                   MOVE.W      #teSetStyle,-(SP)
  989.                   DC.W        $A83D                     ; _TEDispatch
  990.                   ENDM
  991.  
  992.                   MACRO
  993.                   _TEReplaceStyle
  994.                   MOVE.W      #teReplaceStyle,-(SP)
  995.                   DC.W        $A83D                     ; _TEDispatch
  996.                   ENDM
  997.  
  998.                   MACRO
  999.                   _TEGetStyle
  1000.                   MOVE.W      #teGetStyle,-(SP)
  1001.                   DC.W        $A83D                     ; _TEDispatch
  1002.                   ENDM
  1003.  
  1004.                   MACRO
  1005.                   _GetStyleHandle
  1006.                   MOVE.W      #getStyleHandle,-(SP)
  1007.                   DC.W        $A83D                     ; _TEDispatch
  1008.                   ENDM
  1009.  
  1010.                   MACRO
  1011.                   _SetStyleHandle
  1012.                   MOVE.W      #setStyleHandle,-(SP)
  1013.                   DC.W        $A83D                     ; _TEDispatch
  1014.                   ENDM
  1015.  
  1016.                   MACRO
  1017.                   _GetStyleScrap
  1018.                   MOVE.W      #getStyleScrap,-(SP)
  1019.                   DC.W        $A83D                     ; _TEDispatch
  1020.                   ENDM
  1021.  
  1022.                   MACRO
  1023.                   _TEStyleInsert
  1024.                   MOVE.W      #teStyleInsert,-(SP)
  1025.                   DC.W        $A83D                     ; _TEDispatch
  1026.                   ENDM
  1027.  
  1028.                   MACRO
  1029.                   _TEGetPoint
  1030.                   MOVE.W      #teGetPoint,-(SP)
  1031.                   DC.W        $A83D                     ; _TEDispatch
  1032.                   ENDM
  1033.  
  1034.                   MACRO
  1035.                   _TEGetHeight
  1036.                   MOVE.W      #teGetHeight,-(SP)
  1037.                   DC.W        $A83D                     ; _TEDispatch
  1038.                   ENDM
  1039.  
  1040.                   ENDIF
  1041.  
  1042.     ENDIF    ; ...already included